home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / gfx / conv / UConv_PBMPGM_K.lha / UConv_PBMPGM_Kit / Install < prev    next >
Text File  |  1998-11-29  |  3KB  |  143 lines
  1. ;
  2. ; Skript zur Installation von UConv_PBMPGM_Kit 1.02
  3. ; Version 1.03, 29.11.98
  4. ; Version 1.02, 17.09.98
  5. ; Version 1.01, 18.04.98
  6. ; Version 1.00, 26.02.98
  7. ; (c) 1998 Stefan Diener
  8. ;
  9.  
  10. (set @pretend 0)
  11. (set @user-level 2)
  12. (set @default-dest "")
  13.  
  14. (complete 0)
  15.  
  16. (if (= @language "deutsch")
  17.  (
  18.    ; deutsche Textausgaben
  19.    (set #gruss "\n\n\n\nUConv_PBMPGM_Kit 1.02\n© 1998 by Stefan Diener\n\n\nWillkommen zur Installation vom PBM/PGM-Kit 1.02!\nDieses Skript wird die neuen Loader und Saver fuer Ultraconv3/4 auf Ihre Festplatte installieren.\n")
  20.    (set #destimsg "Wo wollen Sie das UConv_PGMPGM_Kit installieren ?")
  21.    (set #fertig "\nDas UConv_PBMPGM_Kit ist nun auf Ihrer Festplatte in folgendem\nVerzeichnis installiert:\n")
  22.    (set #whichcpu "Für welche CPU sollen optimierte Versionen\ninstalliert werden ?")
  23.  )
  24.  (
  25.    ; english text output
  26.    (set #gruss "\n\n\n\nUConv_PBMPGM_Kit 1.02\n© 1998 by Stefan Diener\n\n\nWelcome to the PBM/PGM-Kit 1.02 installation!\nThis script will install the new loaders and savers for Ultraconv3/4 on your harddisk.\n")
  27.    (set #destimsg "Where do you want to install the UConv_PBMPGM_Kit ?")
  28.    (set #fertig "\nThe UConv_PBMPGM_Kit is now installed on your harddisk at:\n")
  29.    (set #whichcpu "For which CPU shall I install an optimised version ?")
  30.  )
  31. )
  32.  
  33.  
  34. ; kleine Begruessung
  35. (message #gruss
  36. )
  37.  
  38. (complete 10)
  39.  
  40. ; Zielpfad ermitteln
  41. (set #destidir
  42.   (askdir
  43.     (prompt #destimsg)
  44.     (help @askdir-help)
  45.     (default "UConv:")
  46.   )
  47. )
  48.  
  49. (complete 30)
  50.  
  51. (set #loaderspath
  52.   (tackon #destidir "Loaders")
  53. )
  54.  
  55. (set #saverspath
  56.   (tackon #destidir "Savers")
  57. )
  58.  
  59. (complete 40)
  60.  
  61. ; automatische Auswahl der CPU
  62. (set #mycpu (database "cpu"))
  63. (if (= #mycpu 68000) (set #cpu 0))
  64. (if (= #mycpu 68010) (set #cpu 0))
  65. (if (= #mycpu 68020) (set #cpu 0))
  66. (if (= #mycpu 68030) (set #cpu 1))
  67. (if (= #mycpu 68040) (set #cpu 1))
  68. (if (= #mycpu 68060) (set #cpu 1))
  69.  
  70. (if (> (exists ("LIBS:ppc.library")) 0) (set #cpu 2))
  71.  
  72. ; Benutzer nach optimaler Programmvariante fragen
  73. (set #cpuver (askchoice (choices "68000" "68030" "PowerPC")
  74.                (prompt #whichcpu)
  75.                (help   "The 68000 versions will work on all Amigas.\n"
  76.                        "If you have a MC68030 (or higher) use the 68030 versions !\n"
  77.                        "If you are so lucky owning a PPC, select it !\n")
  78.                (default #cpu)
  79.              )
  80. )
  81.  
  82. (complete 50)
  83.  
  84. (set #binpath
  85.   (tackon #destidir "Commands")
  86. )
  87.  
  88. (if (= #cpuver 2)
  89.   (set #binpath
  90.     (tackon #destidir "PPCBin")
  91.   )
  92. )
  93.  
  94. ; jeweilige Programmvariante kopieren
  95. (if (= #cpuver 0)
  96.   ; also nur 68000
  97.   (copyfiles
  98.     (source "Commands")
  99.     (dest #binpath)
  100.     (pattern "#?")
  101.   )
  102. )
  103.  
  104. (if (= #cpuver 1)
  105.   ; doch schon 68030
  106.   (copyfiles
  107.     (source "Commands.68030")
  108.     (dest #binpath)
  109.     (pattern "#?")
  110.   )
  111. )
  112.  
  113. (if (= #cpuver 2)
  114.   ; wow, PowerPC
  115.   (copyfiles
  116.     (source "Commands.ppc")
  117.     (dest #binpath)
  118.     (pattern "#?")
  119.   )
  120. )
  121.  
  122. (complete 70)
  123.  
  124. (copyfiles
  125.   (source "Loaders")
  126.   (dest #loaderspath)
  127.   (pattern "#?")
  128. )
  129.  
  130. (complete 85)
  131.  
  132. (copyfiles
  133.   (source "Savers")
  134.   (dest #saverspath)
  135.   (pattern "#?")
  136. )
  137.  
  138. (complete 100)
  139.  
  140. ; das war es schon -> Verabschiedung
  141. (message #fertig #destidir "\n\n\nHave fun !"
  142. )
  143.